home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Supplier.rep < prev    next >
Encoding:
Text File  |  1997-11-20  |  10.8 KB  |  432 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Supplier.rep - Mugs Sample Application
  4. //
  5. //  Form style detail report for supplier table.
  6. //
  7. //  Dependencies: SUPPLIER.SQL
  8. //                CONNECT.DMD
  9. //
  10. //  Visual dBASE Samples Group
  11. //
  12. //  $Revision:   1.6  $
  13. //
  14. //  Copyright (c) 1997, Borland International, Inc. 
  15. //  All rights reserved.
  16. //
  17. //---------------------------------------------------------------
  18. SET TALK OFF
  19. ** END HEADER -- do not remove this line
  20. //
  21. // Generated on 10/05/97
  22. //
  23. local r
  24. r = new SUPPLIERReport()
  25. r.render()
  26.  
  27. class SUPPLIERReport of REPORT
  28.    with (this)
  29.       title = "Supplier"
  30.       scaleFontSize = 8
  31.       scaleFontBold = false
  32.    endwith
  33.  
  34.    this.DMCONNECT = new DATAMODREF()
  35.    this.DMCONNECT.parent = this
  36.    with (this.DMCONNECT)
  37.       filename = "connect.dmd"
  38.       dataModClass = "ConnectDataModule"
  39.       share = 0
  40.       active = true
  41.       left = 0
  42.       top = 0
  43.    endwith
  44.  
  45.  
  46.    this.SUPPLIER1 = new QUERY()
  47.    this.SUPPLIER1.parent = this
  48.    with (this.SUPPLIER1)
  49.       left = 500
  50.       top = 0
  51.       database = form.DMCONNECT.ref.dbmugs
  52.       sql = "@supplier.sql"
  53.       requestLive = false
  54.       active = true
  55.    endwith
  56.  
  57.  
  58.  
  59.  
  60.    with (this.printer)
  61.       duplex = 1
  62.       orientation = 1
  63.       paperSource = 15
  64.       paperSize = 1
  65.       resolution = 4
  66.       color = 2
  67.       trueTypeFonts = 2
  68.    endwith
  69.  
  70.  
  71.    this.STREAMSOURCE1 = new STREAMSOURCE(this)
  72.  
  73.  
  74.  
  75.    with (this.STREAMSOURCE1.detailBand)
  76.       height = 4600
  77.       beginNewFrame = true
  78.    endwith
  79.  
  80.  
  81.    this.STREAMSOURCE1.detailBand.TITLECOMPANY1 = new TEXT(this.STREAMSOURCE1.detailBand)
  82.    with (this.STREAMSOURCE1.detailBand.TITLECOMPANY1)
  83.       height = 275
  84.       left = 215
  85.       top = 600
  86.       width = 1500
  87.       metric = 1
  88.       colorNormal = "BtnText"
  89.       fontSize = 9
  90.       fontBold = true
  91.       text = "<H4>Company</H4>"
  92.    endwith
  93.  
  94.  
  95.    this.STREAMSOURCE1.detailBand.VALUECOMPANY = new TEXT(this.STREAMSOURCE1.detailBand)
  96.    with (this.STREAMSOURCE1.detailBand.VALUECOMPANY)
  97.       height = 300
  98.       left = 200
  99.       top = 850
  100.       width = 3000
  101.       metric = 1
  102.       colorNormal = "BtnText"
  103.       fontSize = 11
  104.       text = {||this.Form.supplier1.Rowset.Fields["COMPANY"].Value}
  105.    endwith
  106.  
  107.  
  108.    this.STREAMSOURCE1.detailBand.TITLECONTACT1 = new TEXT(this.STREAMSOURCE1.detailBand)
  109.    with (this.STREAMSOURCE1.detailBand.TITLECONTACT1)
  110.       height = 195
  111.       left = 155
  112.       top = 1250
  113.       width = 1500
  114.       metric = 1
  115.       colorNormal = "BtnText"
  116.       fontSize = 9
  117.       fontBold = true
  118.       text = "<H4>Contact</H4>"
  119.    endwith
  120.  
  121.  
  122.    this.STREAMSOURCE1.detailBand.VALUECONTACT = new TEXT(this.STREAMSOURCE1.detailBand)
  123.    with (this.STREAMSOURCE1.detailBand.VALUECONTACT)
  124.       height = 300
  125.       left = 200
  126.       top = 1500
  127.       width = 3000
  128.       metric = 1
  129.       colorNormal = "BtnText"
  130.       fontSize = 11
  131.       text = {||this.Form.supplier1.Rowset.Fields["CONTACT"].Value}
  132.    endwith
  133.  
  134.  
  135.    this.STREAMSOURCE1.detailBand.TITLESUPPLIERID1 = new TEXT(this.STREAMSOURCE1.detailBand)
  136.    with (this.STREAMSOURCE1.detailBand.TITLESUPPLIERID1)
  137.       height = 275
  138.       left = 250
  139.       top = 100
  140.       width = 1250
  141.       metric = 1
  142.       colorNormal = "BtnText"
  143.       alignVertical = 1
  144.       fontSize = 9
  145.       fontBold = true
  146.       text = "Supplier ID:"
  147.    endwith
  148.  
  149.  
  150.    this.STREAMSOURCE1.detailBand.HTMLSUPPLIERID1 = new TEXT(this.STREAMSOURCE1.detailBand)
  151.    with (this.STREAMSOURCE1.detailBand.HTMLSUPPLIERID1)
  152.       height = 275
  153.       left = 1800
  154.       top = 100
  155.       width = 1000
  156.       metric = 1
  157.       colorNormal = "BtnText"
  158.       alignVertical = 1
  159.       fontSize = 11
  160.       text = {||this.Form.supplier1.Rowset.Fields["SUPPLIER ID"].Value}
  161.    endwith
  162.  
  163.  
  164.    this.STREAMSOURCE1.detailBand.TITLEPHONE1 = new TEXT(this.STREAMSOURCE1.detailBand)
  165.    with (this.STREAMSOURCE1.detailBand.TITLEPHONE1)
  166.       height = 275
  167.       left = 200
  168.       top = 1900
  169.       width = 1500
  170.       metric = 1
  171.       colorNormal = "BtnText"
  172.       fontSize = 9
  173.       fontBold = true
  174.       text = "<H4>Phone</H4>"
  175.    endwith
  176.  
  177.  
  178.    this.STREAMSOURCE1.detailBand.VALUEPHONE = new TEXT(this.STREAMSOURCE1.detailBand)
  179.    with (this.STREAMSOURCE1.detailBand.VALUEPHONE)
  180.       height = 300
  181.       left = 200
  182.       top = 2150
  183.       width = 2310
  184.       metric = 1
  185.       colorNormal = "BtnText"
  186.       fontSize = 11
  187.       text = {||this.Form.supplier1.Rowset.Fields["PHONE"].Value}
  188.    endwith
  189.  
  190.  
  191.    this.STREAMSOURCE1.detailBand.TITLEFAX1 = new TEXT(this.STREAMSOURCE1.detailBand)
  192.    with (this.STREAMSOURCE1.detailBand.TITLEFAX1)
  193.       height = 275
  194.       left = 3500
  195.       top = 1900
  196.       width = 1500
  197.       metric = 1
  198.       colorNormal = "BtnText"
  199.       fontSize = 9
  200.       fontBold = true
  201.       text = "<H4>Fax</H4>"
  202.    endwith
  203.  
  204.  
  205.    this.STREAMSOURCE1.detailBand.VALUEFAX = new TEXT(this.STREAMSOURCE1.detailBand)
  206.    with (this.STREAMSOURCE1.detailBand.VALUEFAX)
  207.       height = 300
  208.       left = 3500
  209.       top = 2150
  210.       width = 2310
  211.       metric = 1
  212.       colorNormal = "BtnText"
  213.       fontSize = 11
  214.       text = {||this.Form.supplier1.Rowset.Fields["FAX"].Value}
  215.    endwith
  216.  
  217.  
  218.    this.STREAMSOURCE1.detailBand.TITLEEMAIL1 = new TEXT(this.STREAMSOURCE1.detailBand)
  219.    with (this.STREAMSOURCE1.detailBand.TITLEEMAIL1)
  220.       height = 275
  221.       left = 3500
  222.       top = 1250
  223.       width = 1500
  224.       metric = 1
  225.       colorNormal = "BtnText"
  226.       fontSize = 9
  227.       fontBold = true
  228.       text = "<H4>E-mail</H4>"
  229.    endwith
  230.  
  231.  
  232.    this.STREAMSOURCE1.detailBand.VALUEEMAIL = new TEXT(this.STREAMSOURCE1.detailBand)
  233.    with (this.STREAMSOURCE1.detailBand.VALUEEMAIL)
  234.       height = 300
  235.       left = 3500
  236.       top = 1500
  237.       width = 4000
  238.       metric = 1
  239.       colorNormal = "BtnText"
  240.       fontSize = 11
  241.       text = {||this.Form.supplier1.Rowset.Fields["EMAIL"].Value}
  242.    endwith
  243.  
  244.  
  245.    this.STREAMSOURCE1.detailBand.VALUESTREET1 = new TEXT(this.STREAMSOURCE1.detailBand)
  246.    with (this.STREAMSOURCE1.detailBand.VALUESTREET1)
  247.       height = 250
  248.       left = 200
  249.       top = 2800
  250.       width = 5000
  251.       metric = 1
  252.       colorNormal = "BtnText"
  253.       fontSize = 11
  254.       text = {||this.Form.supplier1.Rowset.Fields["STREET1"].Value}
  255.    endwith
  256.  
  257.  
  258.    this.STREAMSOURCE1.detailBand.VALUESTREET2 = new TEXT(this.STREAMSOURCE1.detailBand)
  259.    with (this.STREAMSOURCE1.detailBand.VALUESTREET2)
  260.       height = 250
  261.       left = 200
  262.       top = 3100
  263.       width = 5000
  264.       metric = 1
  265.       colorNormal = "BtnText"
  266.       suppressIfBlank = true
  267.       fontSize = 11
  268.       text = {||this.Form.supplier1.Rowset.Fields["STREET2"].Value}
  269.    endwith
  270.  
  271.  
  272.    this.STREAMSOURCE1.detailBand.VALUECITY = new TEXT(this.STREAMSOURCE1.detailBand)
  273.    with (this.STREAMSOURCE1.detailBand.VALUECITY)
  274.       height = 250
  275.       left = 200
  276.       top = 3400
  277.       width = 5000
  278.       metric = 1
  279.       colorNormal = "BtnText"
  280.       fontSize = 11
  281.       text = {||this.Form.supplier1.Rowset.Fields["CITY"].Value + "   " + this.Form.supplier1.Rowset.Fields["STATE ID"].Value + ",  " + this.Form.supplier1.Rowset.Fields["POSTAL"].Value}
  282.    endwith
  283.  
  284.  
  285.    this.STREAMSOURCE1.detailBand.VALUECOUNTRYID = new TEXT(this.STREAMSOURCE1.detailBand)
  286.    with (this.STREAMSOURCE1.detailBand.VALUECOUNTRYID)
  287.       height = 250
  288.       left = 200
  289.       top = 3700
  290.       width = 2310
  291.       metric = 1
  292.       colorNormal = "BtnText"
  293.       fontSize = 11
  294.       text = {||this.Form.supplier1.Rowset.Fields["COUNTRY ID"].Value}
  295.    endwith
  296.  
  297.  
  298.    this.STREAMSOURCE1.detailBand.TEXT1 = new TEXT(this.STREAMSOURCE1.detailBand)
  299.    with (this.STREAMSOURCE1.detailBand.TEXT1)
  300.       height = 200
  301.       left = 200
  302.       top = 2550
  303.       width = 1500
  304.       metric = 1
  305.       colorNormal = "BtnText"
  306.       fontSize = 9
  307.       fontBold = true
  308.       text = "<H4>Address</H4>"
  309.    endwith
  310.  
  311.  
  312.    this.STREAMSOURCE1.detailBand.LINE1 = new LINE(this.STREAMSOURCE1.detailBand)
  313.    with (this.STREAMSOURCE1.detailBand.LINE1)
  314.       right = 8000
  315.       top = 450
  316.       bottom = 450
  317.       width = 3
  318.       metric = 1
  319.       colorNormal = "WindowText"
  320.    endwith
  321.  
  322.  
  323.    this.STREAMSOURCE1.detailBand.TEXT3 = new TEXT(this.STREAMSOURCE1.detailBand)
  324.    with (this.STREAMSOURCE1.detailBand.TEXT3)
  325.       height = 275
  326.       left = 7000
  327.       top = 100
  328.       width = 1000
  329.       metric = 1
  330.       colorNormal = "BtnText"
  331.       fontSize = 9
  332.       fontBold = true
  333.       text = {||DATE()}
  334.    endwith
  335.  
  336.  
  337.    this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
  338.    with (this.PAGETEMPLATE1)
  339.       height = 15840
  340.       width = 12240
  341.       marginTop = 720
  342.       marginLeft = 720
  343.       marginBottom = 720
  344.       marginRight = 720
  345.       gridLineWidth = 0
  346.    endwith
  347.  
  348.  
  349.    this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
  350.    with (this.PAGETEMPLATE1.STREAMFRAME1)
  351.       height = 4250
  352.       left = 25
  353.       top = 525
  354.       width = 8000
  355.       metric = 1
  356.       borderStyle = 4
  357.       form.STREAMFRAME1 = form.pagetemplate1.streamframe1
  358.    endwith
  359.  
  360.  
  361.    this.PAGETEMPLATE1.TEXTTITLE = new TEXT(this.PAGETEMPLATE1)
  362.    with (this.PAGETEMPLATE1.TEXTTITLE)
  363.       height = 500
  364.       left = 50
  365.       width = 8000
  366.       metric = 1
  367.       colorNormal = "purple"
  368.       alignVertical = 1
  369.       alignHorizontal = 1
  370.       fontName = "Times New Roman"
  371.       fontSize = 8
  372.       fontBold = true
  373.       text = "<h1>Supplier Information</h1>"
  374.       form.TEXTTITLE = form.pagetemplate1.texttitle
  375.    endwith
  376.  
  377.  
  378.    this.PAGETEMPLATE1.TEXTPAGE = new TEXT(this.PAGETEMPLATE1)
  379.    with (this.PAGETEMPLATE1.TEXTPAGE)
  380.       height = 161
  381.       left = 360
  382.       top = 13140
  383.       width = 856
  384.       metric = 1
  385.       colorNormal = "BtnText"
  386.       fontSize = 8
  387.       fontBold = true
  388.       text = {||this.Parent.Parent.ReportPage}
  389.       form.TEXTPAGE = form.pagetemplate1.textpage
  390.    endwith
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.    this.reportGroup.footerBand.LABELTOTAL = new TEXT(this.reportGroup.footerBand)
  402.    with (this.reportGroup.footerBand.LABELTOTAL)
  403.       height = 300
  404.       top = 50
  405.       width = 2750
  406.       metric = 1
  407.       colorNormal = "purple"
  408.       fontBold = true
  409.       text = "Total number of suppliers:"
  410.    endwith
  411.  
  412.  
  413.    this.reportGroup.footerBand.VALUECOUNT = new TEXT(this.reportGroup.footerBand)
  414.    with (this.reportGroup.footerBand.VALUECOUNT)
  415.       height = 300
  416.       left = 3000
  417.       top = 50
  418.       width = 2000
  419.       metric = 1
  420.       variableHeight = true
  421.       colorNormal = "purple"
  422.       fontBold = true
  423.       text = {||this.Parent.Parent.agCount({||this.Parent.STREAMSOURCE1.Rowset.Fields["COMPANY"].Value})}
  424.    endwith
  425.  
  426.  
  427.    this.firstPageTemplate = this.form.pagetemplate1
  428.    this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
  429.    this.form.pagetemplate1.streamframe1.streamSource = this.form.STREAMSOURCE1
  430.    this.form.STREAMSOURCE1.rowset = this.form.supplier1.rowset
  431. endclass
  432.